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We lead off this issue by apologising for jumping the gun 
about the battery clocks. We knev they vere coming and 
vould be here shortly after ue vent to press and “assumed” 
that they vould uork fine, coming free a relioble source. 


fe it turned out, that batch vould not work at all. 
Everytise ve set the clock, povered down, ond turned the Qa 
back ony the clock vas not correct. It is also very 
difficult to install. The board plugs into the S282 chip 
socket. The $082 plugs into the boord. The board vill rub 
agoinst a diode on the right side of the #232 socket which 
vill heave to be “pushed out of the way. You also will have 
to unplug the tuo riboon connectors {0 the keytoord in 
trder to get to the $382 socket. THIS 1S HOT AN ERGY BORD 
TO INSTALLI} Please be very coreful. 


As a sideline to the chwe, if any of you ever experience 
dead keys cn your fy the first thing to suspect, ond 
rightly so, is the pembrane keyboard. Houever, comet ies 
instead of baving ta replace it, you might find that upon 
cloce examination of the tuo cables that plug into the PCB, 
there will be hairline cracks at tte base which are cousina 
the probles. If you “trim” @ quarter inch or so off with a 
pair of sharp scissors ond re-install thea into the 
sockets, you sight find this clears up everything fine. 


FRACTURED FRACTALS 
RY Marshall Stiles xxxx 


You have no doubt seen some cosputer seanerated landscapes 
op other objects. If you sav any of the Star Trek movies, 
you did see a computer representation of an cbject on the 

ecreen gode up of repetative squares, trionyles, circles or 
curving lines. Unless the geometric objects making up the 
surfaces ore filled in or shoded, you con “see through” the 

grid like surfoces. These ore mony tines referred to a5 
fractal representations. 


The prooroa belou dasonstrates the basic principle of hoy a 
dreming oof this type can be sate to represent uneven 
surfaces, It does not generate o vost (andscope using the 
repetative operations on a decreasing scale like a true 
fractal sererotor. Ubot it does do; is to let you 
emipulate a rectangular locking object divided into four 
triengles. It decreazes in scale ievrd the upper part of 
the soreen to give the illusion of distance. If you think 
of the object as a flat parcel of land at sea level, you 
vill get the iden. Keys “1° to “5° atloy you to raise the 
five points of intersect in the dravingy one dot at a tine, 
above sea level. “ESC” lets you quid, in case you vant to 
start over. 


Yor should notice several things. If you raise each point 
the sone number of key strokes the object is the some, but 
x Tuber of dots above sea level. Frassing the “S” key uill 
raise the center point and vill crente ao 3 denensional 
paraid. Raising only the outer points ‘keys “1” to 74°) 
will create an inverted pyrasid. 


To create on impressive fractal representation you wuld 
wnt a farge rumter of these ceometric shapes, smaller in 
size und cormected to ae onother. This would be kird of 


like having a see through quilt sode of shores of relative 
size. Hopefully the folloving program vill help you jet a 
qood picture cf uhat is taking place in this tye of 
display! 


118 ReHark fractall_bas, Marshal l Stiles, inv 
120 PAPER 2: (LS : PRER Gs IK 7 

128 initialisa 

148 drauline 

158 keyscon 

S99 STOP 

1008 DEF ine PROCedure initialise 

1618 lix= 1: Uy = 1: PeMark iqer left 

1826 Inx = 108 s Ung = 1: REMark lover right 
108 ulx = 45 + uTy = 5H + PEMark upper left 
1249 urs = 75: uru = 5@ : Felfork upper right 
1668 Cx = 58: Cy = 33 : PeMork center point 
{666 EHD [Fire initialise 

268 (EF ine PRiiedure drauline 

7818 LIME Ux, tly TO trxylry 10 CxsCy 70 Ux atty 
2a LIKE Lixstly TO uixsuly Ta CxsCy 

9068 LIKE ulxsuly TG urxsury TO Carty 

ond LINE urxyury 10 Irxyiry 

299 EMD DF ine drowlin 

3000 (EF ine PeOCedure keyscan 

S818 REPeat locel 

20 KGS IMEENS 

3908 IF CECE) = 52: Cy = Cy t+ 1: draulire 
npda IF (OEGK) = 49: Uy = ily +1: cravline 
3050 IF COGS) = Sd: ulysuly+i: oraaline 
S060 IF CEG) = Ss urysury + 1s deauline 
7A7A IF COOEGS) = 52: Ing = try +t dravline 
3698 IF COGEGS) = 27 : EXIT leopl 

3098 EHO RePeat loop! 

2959 END DEF ine keyscan 

i 


RAST ARORTME 


ARCHIVE, as everyone knows, is a very poverful database. 
Unfortunately, it is only as powerful as you ore a 
proarsser. Anyone con create a mailing list files owoa 
custoser file or a stockfile. It is the ability to write 
procedures uhich utilize the information in the records that 
ackes ARCHIVE one of the better datobases on ony computer. 


Ye ore going to stort a neu series in GR coiled BRSIC 
ARCHIVE ubich ill attempt to shou you hoy fo urite 
procedures first on a rather simplistic level and then on o 
mere complex one. In this issue we ore going to chou you a 
procedure that vill print sailing labels. We vill start vith 
ore that prints one record at a time and then shou you hoy 
to modify it so that you con print @ selected subfile. 


For single sheet soiling labels, you reed 6 “lerint® 
statements so the labels aluays line up correctly, If you 
howe a datcbase file vith the fields inmet, inaeS, 
street$, citys, ctateh ond zip, you could create 3 
procedure called LAALS which would look tike = this: 


proc labels 

iprint fnome$s;” °; Inomet 
lprint streets 

(print citu$s 

lprint stateh;” “szip$ 
{print 

{print 

enderoc 


You could, if you uonted put the city and state fields on 
the same line. As {omg as you have 6 “Iprint” statements, 
the labels vill {ine up correctly, 


With this procedures you com, uhenever a record is on the 
screen, type “labels” and a mailing label uill be generated 
for that specific record, This is fine if you are only in 
reed of a feu ‘lobels. But, suppose, like us, you hove a 
neusietter or uant to send out a flyer to your customers or 
even birthday invitations to 25 or 58 or 588 people? To hove 
fo print the labels one at a time vould be very 
time-consuming to say the least. 


Most of yous ue hope, know hou to use the SELECT command 
froa uithin ARCHIVE. If you vant to create a subfile of 
pecpte uho are only from the state of California, you vould 
type in : select statef="(A" ond ofter ouhile, you uould 
hove a file that only contained people uho live in that 
state. 


This is what ve do vith the O& Report. Ue hove a mmeric 
field nawed “issues.” This is uhere ue log in the number of 

issues you have left in your subscription. If you order for 
all of 1987 in January of 1987, ue log you in for 12 issues. 

Everytine ue generate a mailing lobel, it subtracts one froa 
the issues field. So, uhen ve print labels for all ou 
subscribers in January, if ve look at the “issues” field, it 
Will then shou the number “eleven.” We hove uritten the 
procedure so that a label is generated only if "issuesd8.° 


The procedure for the obove storts by = selecting 
“issues.” It then begins printing the entire subfile. Hou, 
post people do not need nuseric calculations so belou is a 
procedure to print “all” of anything: 

proc printer 

input “position’ sx 

position x 

uhile not eof O 

Iprint frome$(1) 3" °;lnomes 

lprint streets 

tprint cityh:” “state 

lprint ° “szips 

(print rec 

lprint 


next 
enduhi le 
enderoc 


You vill notice some variations betueen this procedure ond 
the previous one. Every record you enter into ARCHIVE is 
assigned a record nuaber. You can find out the current 
record rusber of a record on the screen by typing: “print 
recnuiQ” and the muaber vill be given. fs you add records, 
and depending on hou the file-is orderad or selectad, this 
number say change. 


Hovever,; once you have selected your subfile vhich you 
vant to print, each record's nusber vill stay the same for 
that session. Before printing, the procedure asks you for 
the record number you uont to begin vith. Ve do this because 
uben you print over 5@ labels at a tine, if your labels bind 
or you run cut of lobels presaturely, or ubatever, you con 


see vhat number record vas the fast one that vas okay ond 


then uhen you stort the procedure agains you knou exactly 
uhere to start from again. As you con see, one of the 
“tprint” lines does print the record number. If you do not 
vont to do this, that’s up to you. i 


The main difference over this procedure and the previous 
one is the use of the “while not eofO” tine. This 
construct; is a@ very importont database concept to grasp, 
ond exceedingly poverful. Once you have selected your 
subfite, uith this construct, the procedure systeaatical ly 
strts ot the first file and continues doing 

instructions (in this case the “lprint” statements) until 
the last record in the file. So nov, instead of having to 
wanuaily “run” the procedure to print each label, you merely 
tupe in the uord “printer” (ie, the name of the procedure) 
md all the selected records vill be printed. 


Hext aonth ve will shou hou you can usa the UPDATE command to very 
easily sake changes on either a single record or a large croup of 
records. 


BRIETES PRIFERCTERS| 


Ye have some items.ue vant to mention. Brett Lidstone in Conoda is 
having problems connecting o Howes 308/1208 baud acdea to his a. 
He cannot get it to vork either with the modapter or just vith a 
straisht cable. If anyone out there hes been successful in hook- 
ing up co Houes, urita us ond ve'll foruard the inforeation to 
Brett. 


Ye are going to start a small classified section for subscribers 
uho vant to try and sell used equipment they have or uho are louk- 
ing for a piece of used equipaent to purchase. You aust bea a7: 
scriber of &R ond the vord count sust not exceed tent 
uords INCLUDING your name and address. The cost is 29 cents per 


uord. 

HEERYSRIEORN) (OFF) (SHIRDVEFUVTENFOFE}R 
fl neu version of SIDEVINDER has been released uhich vill make it 
sore compatible vith sore printars. The initial version us onty 
intended for printers uhich uare fully compatible vith the Epson 
pxea. Version @.2 is sore tolerant of “sort of? coapatible 
printers and it can vith a feu glances at your own printer samual, 
be user configured for your printer providing it makes o little 

pretence-at being Epson compatible. If your printer is corabla of 

using any 8 pin Epson screen dump, then SIDEVIMDER should be con- 

figureble for your printer. If the dsp turns out none propor tion- 
al; you will be able to configure it to be proportional. The Epson 
R439 has 6 different 9 pin graphics acdes and your printer acy not 
have as sony as this. You con configure the program so only your 
valid aodes re disployad in SIDEWINDER. 


If you hove o printer that uses <ESC “K" for o bit image mode but 
instead of Epson's 489 dots per 8 inches your printer does 642, 
you con inform SU ond it will act accordingly. To be coapatible 
vith V's 3 densities on ¥ printer axiss it is necessary that your 
printar uses Epson's ESC 3") code for 1/216" linefeed. If you do 
not have this don’t panic becouse the triple density made is oniy 
preferable uhen doing quite saall screen dumps of 2° or caller. 
If you onty have 2 graphic modes and cannot use W's true 3 Y axis 
densities, you vill still be happy vith the program os there is 
nothing vorth coapartng vith it. a 


Considering that you con dusp both upright or sidewous, full\__ 
portial screen duzpss and any ony of these at any size, SY is on 
extrasely useful prograe, Even if you only use it to knock out 28 
foot “Happy Birthday” type banners. 


XN 


WORKING WITH PASCAL FILES 


44794 By: Mel MacKaron Fer rr EEE 


A reader urote this ponth vith a problea that is 


\eeptainiy not unique to programers uho are tryirg to learn 


Pascal. His problea uas hou to do I/0. bhile I vent over 
his comple code, I found a ramber of other basic errors, 
again cf a type that cre not unccamon to nwices to this 
language. Folloving is his listing, a general comeentary on 
the errors and ha te avoid thea, and a sample program which 
cerfores sizple 1/0, 


proaraa introduction (input outeub s 


Field! : integers 

Field? : inteaers 

Field3 : integer: 

Fietdt : intesars 

FieldS : integer 
end; 


uy 
Fields : records 


end; 
F ; fila of Brecords 


begin 

reupitecF); 

put); 

witein( Begin File 10 
od. 


In the very first line of the proeraa one key element 
tos been caitted: the rome of the textfile. INPUT and 
QUFUT are standard Pascat files, but you need to address 
the 1/0 file as I have done in ay example. 


Second, the authce of this sample hos defined a lot of 
constants (CONST which ore never used. It's best to delete 
thea. hile the tetoZonlo compiler (uhich he used? vill let 
you gat cusy vith thise others, such as a VAX mainfrose iil 
flog these vith a vorning sessaje. OF course, they toke up 
needless space ands ina tina and space-critical environ 
sent, con sake a major difference. 


The coding for FECURGS is correct, but they ore never 
used (and should, too, be omitted). In my sample, | have 
asjided thea and opted for on array of integers, as this is 
a siapler data format for the novice. 


_ There are a ranber of errors in the UAR section. Firsts 
Fields is declared as tupe Record. Rather, it should be de- 
Clared as of type Airecord, hich ws defined in the TYPE 
section. Sacond, the author placed an END statement vi thin 
tha URR section. This in itcelf vould cause the progros to 
Gath. You should never use EHD in a WAR section. Onlu use 

{ for loops, procedures, functions, record declarations, 

WITH ond CREE statesents, ond, of course, at the end of your 


. In tha sain port of the progrum, desigmtad by the 
keyuord BECIN, he begins by (correctly) opening the file: 
however, he never attached a name to the file. In Super 
hovever, he never attached a nume to the file. In Super 
BASIC, for example, you can use a construction such os 


open #4 adv2_testfile 


_ The some opplies here. Incidentally, you con only urite. 


to urllE of TEXT in Pascal vith some few exceptions). 
Therefore, the declaration of F as a FILE of ARECORD in VAR 
uan't uork; you should declare (filenage) of type TEXT. 
Then, use the follouing statements: reuritedf filename ;. 
This vill attoch the nage to the output fite. Aftervard you 
ill only refer to ‘f'. This is clearly (sic) shoun in ay 
sample program, 


Tre statement PUT) on the next line doesn't tell the 
program uhat to PUT into file F. (Personally, 1 seldoe use 
PIT and GET, as sost Poscals support the use of WRITE and 
PERO in these situations.) 


Enter the program listing I have provided and try to 
trace out hou it accomplishes its task. Run it. It vorks 
iust fine. If you vant another example of programaings (cok 
at the Pascal article if last sonth’s GL Report. It, asain, 
demonstrates 1/0 in Pascal, both to ond fros disk and to the 
printer, 


proarvaa introduction (input output storage 5 


{This progros is a desonstrdtion of saving and retrieving 
data froa a Pascal progrom.} 


const 
deanme = ‘adv _testfile's 


type 
fournun = arrayli..4] of integer; (uork u/four numbers) 
outdey = packed orray (1..133 of char; (holds fi lenone) 


ver 


vale : integers 
drive ; chor; 

data ; fournumberss 
TOdevice : outdev; 


storage : texts {must declare file ture} 


begin {rain program} 


urite( This is @ program vhich prompts the user’); 
uriteln('to enter four): 5 
urite(numbers. It vill then ask for the aicrodrive’); 
uriteln(‘to use, vill’); 

urite(’ save the numbers, and vill then retrieve thea’); 
uriteln( from the’); 

uriteln(’storage device and print thea on the <creen."); 
witein; : 
urite<'Before proceedings be sure that a FORMATTED"); 
uriteln(’cartridge is in')s 

uriteln(' the drive you vish fo use.'); 

uritalns 


for i ss 1 to 4 do 
begin 
writeC Enter value ‘,i:h,'s "23; 9 Enter value 1s} 
readin(value) ; 
datali] := vaiue temp. storage} 
end; {4 values have been entered) 


uritetns 


repeat 
weiteC Enter drive ramber (lor 2s °)5 
readin (drive) 
until drive in ('1',°2']3 faust select either 1 or 2) 


Tidevice := dere; iassign file rome} 

Tidevicef4] := drives idth char := drive nusber} 

reurite(storaca, Iidevice fopen file for uniting) 

for i i= 1 to 4 do 
uritetnistorage datali}); fupite data to file) 

uritaln: 

wite( fate is nu stared. It vill now te read froa ')s 

writeinIidevice ; 

uritelnCand printed to the screen.'}; 

unitelns 

reset (storages Iidevice) {open file for read only} 


for i r= 1 to 4 do 


teain 
readin{starage datalil} s {read data from file) 
uritealn( Value ‘yirt,’ is ‘ datali] sd 
and; 
witeins 


writelnt End of demonstration’) 


ond. {introduction} 


If you have any questions concerning this article, on if 
wu vould like to see further Pascal problems addressed in 
GR, please urite to Curry Computer. If your query requires. 
a personal response, please he sure to enclese on SHSE duith 
adequate postage for the reply), 
NO SIOOCOOI OOO OONIOOEND 


i& talked vith Arnie Gardiner at Sondy UK recently ond te told us 
the 256k battery-tocked RAM card is still not ready but should be 
"vary chortly- in about a aonth.” The board vill plug into the ex- 
ponsicn port and betueen plug-ins to the @& should be able to keep 
infornation in bey for = about six veeEks. 


Sandy also vill have ready shortly a PCEBK board uhich vill plug 
into your IBM ond altou your IBM to run OL prograns. The board is 
nore oe less the some that FUTURA vill have ond vill retail ‘in the 
UK. for cpproximately £260.08 (roushly $ 325.08 ). Ve hope to 
hive more inforeation on this board by next issue. 


We vill close this issue vith some examples of screan dues free 
Sidewinder. Haxt nonth ve vill continue our saries on procedures 
in Archive and hope to have sore inforaation on Miracte's Midi 
interface ond Sandy's nev products. 


NY 


